
 1000  *--------------------------------
 1010  * DIVIDE ANY NUMBER BY 10 OR BY *
 1020  * ANYTHING ELSE FOR THAT MATTER *
 1030  *                               *
 1040  * DIVIDEND - REGISTER 0  $00.01 *
 1050  * DIVISOR  - REGISTER 1  $02.03 *
 1060  * QUOTIENT - REGISTER 2  $04.05 *
 1070  *                               *
 1080  * EXAMPLE  - DIVIDE 65534 BY 10 *
 1090  * 00:FE FF 0A 00 00 00 N 300G   *
 1100  *                               *
 1110  *          JIM CHURCH           *
 1120  *--------------------------------
 1130         .OR $300
 1140  SW16   .EQ $9B89   (SWEET-16 ADDRESS IN RAM)
 1150  *--------------------------------
 1160  GO     JSR SW16
 1170  STILL.GREATER
 1180         SUB 1        DEDUCT DIVISOR FROM DIVIDEND
 1190         INR 2        ADD 1 TO QUOTIENT
 1200         CPR 1        DIVIDEND > DIVISOR?
 1210         BC  STILL.GREATER
 1220         RTN          LEAVE SWEET-16
 1230         RTS
 1240  LENGTH .EQ *-GO
 1250  *--------------------------------
 1260  * LOOK IN $00.01 FOR REMAINDER  *
 1270  *--------------------------------

